CommandBar 对象 (Office) |
您所在的位置:网站首页 › vba 遍历对象属性 › CommandBar 对象 (Office) |
CommandBar 对象 (Office)
项目04/07/2023
代表容器应用程序中的一个命令栏。 CommandBar 对象是 CommandBars 集合的成员。 注意 某些 Microsoft Office 应用程序中对 CommandBars 的使用已由 Microsoft Office Fluent 用户界面的新功能区组件取代。 有关详细信息,请参阅 Office Fluent 功能区概述。 示例使用 CommandBars (索引) ,其中 index 是命令栏的名称或索引号,以返回单个 CommandBar 对象。 以下示例逐步遍历命令栏集合以查找名为“Forms”的命令栏。如果找到此命令栏,则示例会使其可见并保护其停靠状态。 在本示例中,变量 cb 代表一个 CommandBar 对象。 foundFlag = False For Each cb In CommandBars If cb.Name = "Forms" Then cb.Protection = msoBarNoChangeDock cb.Visible = True foundFlag = True End If Next cb If Not foundFlag Then MsgBox "The collection does not contain a Forms command bar." End If使用名称或索引号在容器应用程序中的可用菜单栏和工具栏列表中指定菜单栏或工具栏。 但是,必须使用名称来指定菜单、快捷菜单或子菜单, (所有这些菜单都由 CommandBar 对象表示) 。 本示例将新的菜单项添加到 “工具” 菜单的底部。 选择后,新菜单项将运行名为“qtrReport”的过程。 Set newItem = CommandBars("Tools").Controls.Add(Type:=msoControlButton) With newItem .BeginGroup = True .Caption = "Make Report" .FaceID = 0 .OnAction = "qtrReport" End With如果两个或更多个自定义菜单或子菜单具有相同的名称, 则 CommandBars (索引) 将返回第一个菜单或子菜单。 若要确保返回正确的菜单或子菜单,请找到显示该菜单的弹出控件。 然后将 CommandBar 属性应用于弹出控件,以返回表示该菜单的命令栏。 假设工具栏上名为 “自定义工具” 的第三个控件是一个弹出控件,本示例将 “保存” 命令添加到该菜单的底部。 Set viewMenu = CommandBars("Custom Tools").Controls(3) viewMenu.Controls.Add ID:=3 'ID of Save command is 3 另请参阅 CommandBar 对象成员 对象模型引用 支持和反馈有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。 |
今日新闻 |
推荐新闻 |
CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3 |